home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 2 / Amoszine 2.adf / andrew_smith_source / Spiral.AMOS / Spiral.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  81 lines
  1. Screen Open 0,320,256,16,Lowres
  2. Flash Off : Curs Off 
  3. Cls 0
  4.  
  5. Degree 
  6.  
  7. ' Anchor first point 
  8.  
  9. Repeat 
  10.    X=X Screen(X Mouse)
  11.    Y=Y Screen(Y Mouse)
  12.    Gr Locate X,Y
  13.  
  14. Until Mouse Click=1
  15.  
  16. FILE$="ac:weird"
  17.  
  18. For EFFECT=1 To 50
  19.  
  20.    FR$=Str$(EFFECT)
  21.  
  22.    MESSAGE["Frame "+FR$+" / 50"]
  23.  
  24.    Screen 0
  25.    Cls 0
  26.  
  27.    CLR=1
  28.  
  29.    For T=1 To 20000
  30.       
  31.       X1=X+T*Sin(T/EFFECT)/200
  32.       Y1=Y+T*Cos(T/50)/200
  33.  
  34.       Ink CLR
  35.  
  36.       Inc CLR
  37.       If CLR>15 Then CLR=1
  38.  
  39.       Draw To X1,Y1
  40.       
  41.    Next T
  42.  
  43.    NUM$=Str$(EFFECT)
  44.  
  45.    FILENAME$=FILE$+NUM$
  46.  
  47.    Save Iff FILENAME$
  48.  
  49.    Gr Locate X,Y
  50.  
  51. Next EFFECT
  52.  
  53. Procedure MESSAGE[A$]
  54.    Screen Open 1,640,26,4,Hires
  55.    Screen Display 1,,270,,
  56.    Screen 1
  57.    Reserve Zone 1
  58.    Curs Off : Flash Off 
  59.    Palette $0,$888,$FFF,$48
  60.    Cls 1
  61.    Ink 3
  62.    Bar 0,0 To 640,12 : Set Zone 1,0,0 To 640,12
  63.    Ink 2
  64.    Box 0,0 To 640,12
  65.    Box 1,1 To 639,11
  66.    Ink 0
  67.    Draw 0,12 To 640,12
  68.    Draw 1,11 To 639,11
  69.    Draw 640,12 To 640,0
  70.    Draw 639,12 To 639,1
  71.    Ink 0
  72.    Box 5,14 To 635,24
  73.    Ink 2
  74.    Draw 5,24 To 635,24
  75.    Draw 635,24 To 635,14
  76.    Ink 0,3
  77.    Text 270,9,"Infinity v1.1"
  78.    Locate ,2
  79.    Centre A$
  80.    Screen 0
  81. End Proc